Top 10k strings from Your Computer - Issue 07 (1986)(Sintax)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
9 SUBROUTINE
7 "'n$;:.LIST#3
4 X$="NUMERO DE OPERACION ERRONEO":
4 (O$(F)>"9")
4 (O$(F)<"0")
4
3 ;"~~~~~~~~~~~~~~~~~~"
3 PARA VOLVER AL MENU"
2 all leters in quotes are graphic udgs
2 X$="NUMERO OPERACION ERRONEO":
2 X$="NOMBRE FICHERO ERRONEO":
2 U$=(" "(
2 T$(F)="C")
2 DISPLAY MENU
2 ;"~~~~~~~~~~~~~~~~~~~~~~"
2 ;"CARGANDO":
2 ;" MAL TIRO !"
2 :.SCROLL-20
2 :.CIRCLE70
2 +(STATHI*5
2 *STATHI)),0
2 ********************************
2 ***********************
2 )="C");("PAGO"
2
2
2
1 spin=spin+(
1 set up table
1 s$=" TECLADO Q=Salto O=Izqda. P=Dcha. M=Pausa Z=Sonido"
1 position cue ball
1 move ball(s)
1 k;"TECLADO"
1 j;"KEMPSTON"
1 initialise variables
1 foul stroke
1 display game status
1 d$;"SPECTRUM WINDOWS DEMO"'n$;"
1 control cue ball
1 YOUR7$
1 YOUR7
1 YOUR COMPUTER N.7
1 X$="VERIFICACION REALIZADA":
1 X$="VALOR OPERACION ERRONEO":
1 X$="TIPO OPERACION ERRONEO":
1 X$="SEPARACION DE FECHA MAL":
1 X$="NUMERO OPERACION FUERA DE RANGO":
1 X$="NOTAS DEMASIADO LARGAS!":
1 X$="NO HAY MAS OPERACIONES":
1 X$="MES ERRONEO ":
1 X$="DIA ERRONEO":
1 X$="DATO ERRONEO":
1 X$="CREANDO NUEVA CUENTA .....":
1 X$="CARGA REALIZADA":
1 Wy+c,h-~RrCzBwYyy
1 WINDOWS
1 WINDCODE 3
1 Ventana pequena
1 Ventana grand
1 Vent.fuera limit
1 Valor fuera de rango
1 Valor de color invalidoQCoordenada fuera rangoQVD
1 VERIFY OPTION
1 TEMPTOT=RUNTOT
1 TEMP=REC+1
1 TAPE MAGAZINE
1 T$(G)>T$(G+1
1 T$(G)=T$(G+1
1 T$(F)=T$(F-1
1 T$(F)="P");("CREDIT"
1 T$(F)="P")+("COB"
1 T$(F)="P")+(
1 T$(F)="C")+"|"
1 Stack empt
1 STATHI=STATHI+1
1 SPEED=SPEED+(
1 SORTING SUBROUTINE
1 SINTAX S.A.
1 SHOT=SHOT-1
1 SCORE 00000
1 SAVE STATEMENT
1 RUNTOT=TEMPTOT:
1 Procedure not foun
1 Procedure Mismatc
1 Pixel SCROLL and PAN
1 PRINT TRANSACTION
1 PRINT STATEMENT
1 PRINT BALANCE AT THE
1 PRINT A TRANSACTION
1 PPP P
1 POOLCODE
1 POOL
1 P$=P$+("**"
1 ON THE STATEMENT
1 Normal SCROLL and PAN
1 No screen store
1 NUMERO DE OPERACION ERRONEOQ
1 M-15668-86
1 LOAD STATEMENT
1 Invalid Program Lin
1 Invalid HEX Numbe
1 INTIALISE MAIN VARIABLES
1 INSERT TRANSACTION
1 I$(G)>I$(G+1
1 I$(G)=I$(G+1
1 I$(F)=I$(F-1
1 HI SCORE 00000!00"
1 GOTO APPROPRIATE SUBROUTINE
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGhhhhhhhhhhhhhhGGWWWWWWWWWWVWWWGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGhhhhhhhhhhhhhhGGVVVVVVVVVVVVVWGGhhhhhhhhhhhhhhGGWVVVVVVVVVVVVWGGhhhhhhhhhhhhhhGGWWWWWWWWWWPWWWGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGhhhhhhhhhhhhhhGGVVVVVVVVVVVVVVGGhhhhhhhhhhhhhhGGWWWWWWWWWWWWWWGGooooooooooooooGGWWWWWWWWWWWWWWGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGxxxxxxxxxxxxxxxxxxxxGGGGGGGGGGGGxxxxxxxxxxxxxxxxxxxxGGGGGG
1 GET SORTING CHOICE
1 GET OPTION REQUIRED AND
1 GET CHOICE & JUMP TO
1 FRANTIC
1 FRANCODE2
1 FRANCODE1
1 FIND STATEMENT OPTION
1 FILL y AFILL
1 F=((STATHI+1
1 F+"|"+D$(F,
1 EXBCODE2 d
1 EXBCODE1
1 EXBASIC Q
1 ERROR PRINT SUBROUTINE
1 END OF THE STATEMENT
1 E$)))+E$+"|"
1 DRAW fuera rango
1 DISPLAY TRANSACTION
1 DISPLAY MAIN MENU
1 DELETE TRANSACTION
1 DATE AND DETAILS
1 D$(G)=D$(G+1
1 D$(F)=D$(F-1
1 CREATE NEW STATEMENT
1 CP
1 CASHFLOW =B
1 Borde muy anch
1 BRET without BREA
1 ASCROLL y APAN
1 APPROPRIATE SUBROUTINE
1 ALTER TRANSACTION
1 ALTER STATEMENT
1 ADD TRANSACTION
1 A$(G)=A$(G+1
1 A$(F)=A$(F-1
1 ;n$;"KEY":
1 ;f:.BORDER#4
1 ;d$;"KEY":
1 ;"~~~~~~~~~~~~~~~~~~~~~~~"
1 ;"~~~~~~~~~~~~~~~~~~~"
1 ;"~~~~~~~~~~~~~~~~~"
1 ;"~~~~~~~~~~~~~~~~"
1 ;"~~~~~~~~~~~~~~~"
1 ;"VALOR ..... ";A$(REC+1
1 ;"VALOR ..... ";A$(F)
1 ;"TIROS =";SHOT
1 ;"TIPO ....... ";("PAYMENT"
1 ;"TIPO (C/P).. ";("COBRO"
1 ;"TACO = ";D$(DIR)
1 ;"SELECCIONA CONTROL"
1 ;"SCORE = ";MS
1 ;"SAVE REALIZADO"
1 ;"SAVE DE DATOS EN CINTA"
1 ;"RESUMEN GENERAL ";
1 ;"REBOBINA LA CINTA AL PRINCIPIO "''"DE LOS DATOS Y PULSA PLAY"
1 ;"PULSA TECLA PARA OTRA PARTIDA "
1 ;"PULSA NUMERO DE OPERACION A INSERTAR"''"o
1 ;"OPERACION NUMERO = ";REC+1
1 ;"OPERACION NUMERO = ";("0"
1 ;"OPERACION NUMERO ";F
1 ;"No|FECHA|TI | VALOR | BALANCE "
1 ;"NUMERO DE OPERACION A BORRAR"''"o
1 ;"NUMERO DE LA OPERACION A CAMBIAR"''"o
1 ;"NUEVA OPERACION"
1 ;"INSERTAR OPERACION"
1 ;"GAME OVER"
1 ;"GAME OVER"
1 ;"FUERZA= "
1 ;"FRANTIC DAY protagonista FRED"
1 ;"FIGURA= ";N
1 ;"FECHA....... ";D$(REC+1
1 ;"FECHA....... ";D$(F)
1 ;"EFECTO= ";S$(SPIN)
1 ;"DATE :- ";D$(
1 ;"CONCEPTO... ";I$(REC+1
1 ;"CONCEPTO .... ";I$(F,
1 ;"CLASIFICAR OPERACIONES"
1 ;"CLASIFICANDO"
1 ;"CARGANDO POOL"
1 ;"CARGA DE DATOS DE CINTA"
1 ;"CAMBIAR OPERACIONES"
1 ;"BOLAS = ";B-1
1 ;"BIEN HECHO"
1 ;"==========="
1 ;"6 - RETORNO AL MENU .........."
1 ;"6 - CREAR NUEVA CUENTA ......."
1 ;"5 - TIPO DE ESTADO ..........."
1 ;"5 - RETORNO AL MENU .........."
1 ;"5 - LOAD DE CASSETTE ........."
1 ;"4 - SAVE EN CASSETTE ........."
1 ;"4 - POR CONCEPTOS ............"
1 ;"4 - INSERTAR OPERACIONES......"
1 ;"3 - VER SITUACION ............"
1 ;"3 - POR TIPO DE OPERACION..... "
1 ;"3 - BORRAR OPERACIONES ......."
1 ;"2 - POR VALOR................."
1 ;"2 - CAMBIAR OPERACIONES ......"
1 ;"2 - ALTERAR ESTADO ..........."
1 ;"1 - VER OPERACIONES .........."
1 ;"1 - POR FECHAS ..............."
1 ;"1 - NUEVAS OPERACIONES ......."
1 ;"(0) START"
1 ;" PON EN MARCHA EL CASSETTE"
1 ;" CAMBIAR ESTADO"
1 ;" BORRAR OPERACION"
1 ;" * LAS OPCIONES 2,3 y 4 REQUIEREN NUMERO DE OPERACION"
1 ;" | |PO | | "
1 ;" VER OPERACIONES"
1 ;" POSICIONA CON.. Q y A"
1 ;" O P C I O N E S "
1 ;" "
1 ;" "
1 :.SCROLL100
1 :.SCROLL10
1 :.SCROLL-30
1 :.PLOT f,f/2
1 :.PLOT F,0
1 :.MOVE f,45
1 :.MOVE f,142
1 :.MOVE f,-50
1 :.BORDER#4
1 :.BORDER#3
1 :.BORDER f:.BORDER#3
1 :.ASCROLL-8
1 :.ASCROLL-3
1 :.AFILL f:
1 999999 1111 Y
1 02|00-01|PAG| 1111| 998888X
1 01-01-0100-01-01
1 .ACLS:.PLOT40
1 -1111+999999E
1 -(STATHI*5
1 ,SPEED*SPEED
1 +STATLO-(5
1 +F-(STATHI*5
1 )+"|"+("PAG"
1 "VALOR OPERACION >";
1 "SELECCIONA UNA OPCION >";
1 "SELECCIONA OPCION >";
1 "QUIERES VERIFICARLO (Y/N) >";
1 "PULSA ENTER PARA VOLVER A MENU >";O$
1 "OTRA OPERACION MAS (S/N) >";
1 "OPERACION TIPO (C/P) >";
1 "NUMERO DE OPERACION A OBSERVAR ";("O
1 "NOMBRE DEL FICHERO(9 CHR$ MAX) >";
1 "NOMBRE DEL FICHERO(9 CHR$ MAX)>";
1 "FECHA DE LA OPERAC. >";
1 "CONCEPTO(32 CHR$ MAX)";
1 "---------------------==========="
1 "'n$;"Esto puede salir con un mensaje de error "'':.LIST#3
1 characters in quotes in lines: 2110,2120,2130,2140,2150,2180, 3015 are graphic udgs
1 characters in quotes in lines: 10 and 15 are graphic udgs
1 PARA VOLVER A MENU"
1 PARA SEGUIR"
1 EL FICHERO SERA GRABADO"'" EN CUATRO PARTES"
1 EL DESAYUNO ESTA SERVIDO @
1 ABANDONAR - OTRA TECLA SEGUIR ";O$
1 1986 Paul Rhodes"''"Esto significa PULSA TECLA>":
1 1986 Dave Spagno
1 TECLADO Q=Salto O=Izqda. P=Dcha. M=Pausa Z=Sonido A
1 VISITAS A MATTHEW'S ?
1 UNA VISITA AL CASTILLO 8
1 QUITALES EL POLVO
1 VIGILA LOS PAJAROS 0
1 FUERA DEL JARDIN
1 WAKEY WAKEY
1 EN EL ARCADE
1 EN EL GARAGE H
1
1
1
1
1